set a 4;
puts [expr $a ^ $a];
